﻿Imports MySQL
Imports MySQLCommand
Imports System.Data.SqlClient
Imports System.Configuration

Public Class Frm_DanhMucSanPham
    Sub connect()
        clsSQL.setConnection(ConfigurationSettings.AppSettings("connect"))
        If clsSQL.Connected = False Then
            MsgBox("Lỗi kết nối dữ liệu !!")
        End If
    End Sub

    Private Sub Frm_DanhMucSanPham_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        connect()
        LayDSLoaiSP()
        GV_LoaiSanPham_Dinhdang()
    End Sub
    Private Sub GV_LoaiSanPham_Dinhdang()
        GV_LoaiSanPham.Columns(0).HeaderText = "Mã Loại"
        GV_LoaiSanPham.Columns(0).Width = 70
        GV_LoaiSanPham.Columns(1).HeaderText = "Tên Loại"
        GV_LoaiSanPham.Columns(1).Width = 320
    End Sub

    Private Sub LayDSLoaiSP()
        Dim ds As New DataSet
        clsSQL.FillDataSet("SP_LoaiSanPham_Select", ds, "LoaiSP")
        GV_LoaiSanPham.DataSource = ds.Tables("LoaiSP")
    End Sub

    Private Sub GV_LoaiSanPham_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles GV_LoaiSanPham.CellClick
        Txt_LoaiSanPham.Text = GV_LoaiSanPham.Item(1, GV_LoaiSanPham.CurrentRow.Index).Value
    End Sub

    Private Sub Cmd_Luu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_Luu.Click
        Dim n As Integer = GV_LoaiSanPham.Item(0, GV_LoaiSanPham.CurrentRow.Index).Value
        Try
            clsSQL.ExecCommand("SP_LOAISANPHAM_SUA", GV_LoaiSanPham.Item(0, GV_LoaiSanPham.CurrentRow.Index).Value, Txt_LoaiSanPham.Text)
            LayDSLoaiSP()
            MsgBox("Đã cập nhật 1 thông tin loại sản phẩm !")
            GV_LoaiSanPham.Rows(n - 1).Selected = True
        Catch ex As Exception
            MsgBox("Lỗi kết nối dữ liệu, vui lòng thử lại !!")
        End Try
    End Sub

    Private Sub Cmd_Them_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_Them.Click
        Dim n As Integer = GV_LoaiSanPham.Item(0, GV_LoaiSanPham.CurrentRow.Index).Value
        Try
            Dim ds As New DataSet
            clsSQL.FillDataSet("SP_LOAISANPHAM_SelectName", ds, "Tbl_LoaiSP", Txt_LoaiSanPham.Text)
            If ds.Tables("Tbl_LoaiSP").Rows.Count > 0 Then
                MsgBox("Loại sản phẩm này đã có trong CSDL, vui lòng thử lại !!!")
            Else
                clsSQL.ExecCommand("SP_LOAISANPHAM_THEM", Txt_LoaiSanPham.Text)
                LayDSLoaiSP()
                GV_LoaiSanPham.Rows(n).Selected = True
                MsgBox("Đã thêm 1 loại sản phẩm !!")
            End If
        Catch ex As Exception
            MsgBox("Lỗi kết nối dữ liệu, vui lòng thử lại !!")
        End Try
    End Sub

    Private Sub Cmd_Xoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_Xoa.Click
        clsSQL.ExecCommand("SP_LOAISANPHAM_XOA", GV_LoaiSanPham.Item(0, GV_LoaiSanPham.CurrentRow.Index).Value, Txt_LoaiSanPham.Text)
        LayDSLoaiSP()
        MsgBox("Đã xóa một loại sản phẩm !!")
    End Sub

    Private Sub Cmd_Thoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_Thoat.Click
        Me.Close()
    End Sub
End Class